perm filename TAKL.IL[TIM,LSP]1 blob sn#677343 filedate 1982-09-13 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(FILECREATED "28-APR-82 22:17:28" <MASINTER>TAKL.1 768    
C00004 ENDMK
CāŠ—;
(FILECREATED "28-APR-82 22:17:28" <MASINTER>TAKL.;1 768    

     changes to:  TAKLCOMS LISTN TAKL SHORTERP)


(PRETTYCOMPRINT TAKLCOMS)

(RPAQQ TAKLCOMS ((FNS LISTN TAKL SHORTERP)))
(DEFINEQ

(LISTN
  [LAMBDA (N)                                   (* lmm "28-APR-82 21:41")
    (COND
      ((ZEROP N)
	NIL)
      (T (CONS N (LISTN (SUB1 N])

(TAKL
  [LAMBDA (X Y Z)                               (* lmm "28-APR-82 21:39")
    (COND
      ((NOT (SHORTERP Y X))
	Z)
      (T (TAKL (TAKL (CDR X)
		   Y Z)
	      (TAKL (CDR Y)
		   Z X)
	      (TAKL (CDR Z)
		   X Y])

(SHORTERP
  [LAMBDA (X Y)                                 (* lmm "28-APR-82 21:38")
    (AND Y (OR (NULL X)
	       (SHORTERP (CDR X)
			 (CDR Y])
)

(RPAQQ 18L (LISTN 18.))
(RPAQQ 12L (LISTN 12.))
(RPAQQ 6L (LISTN 6.)))

(TAKL 18L 12L 6L)